home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aap.d64 / proc.flexi'load < prev    next >
Text File  |  2007-02-28  |  697b  |  28 lines
  1. 0110 ╨╥╧├ FLEXI'LOAD 
  2. 0120   ╨╥╔╬╘ ┴╘ 1,1: "LOAD FLEXI FONT"
  3. 0130   ╘╥┴╨ 
  4. 0140     ERROR:=0
  5. 0150     ╔╞ FILENAME$="" ╘╚┼╬
  6. 0160       FILENAME$:=BFN$
  7. 0170     ┼╬─╔╞ 
  8. 0180     ╔╞ ╠┼╬(FILENAME$)<>0 ╘╚┼╬
  9. 0190       ╧╨┼╬ ╞╔╠┼ 32,FILENAME$+",P",╥┼┴─
  10. 0200       A$:=╟┼╘$(32,1)
  11. 0210       B$:=╟┼╘$(32,1)
  12. 0220       FT:=0; CH:=0
  13. 0230       ╞╧╥ FT:=0 ╘╧ 1 ─╧
  14. 0240         ╞╧╥ CH:=0 ╘╧ 255 ─╧ PUTCHARACTER(FT,CH,╟┼╘$(32,8))
  15. 0250       ┼╬─╞╧╥ FT
  16. 0260       ├╠╧╙┼ ╞╔╠┼ 32
  17. 0270     ┼╬─╔╞ 
  18. 0280   ╚┴╬─╠┼╥ 
  19. 0290     ├╠╧╙┼ ╞╔╠┼ 32
  20. 0300     ╔╞ ┼╥╥<>58 ┴╬─ ┼╥╥<>5 ╘╚┼╬
  21. 0310       ERROR:=1
  22. 0320       ╨╥╔╬╘ ┴╘ 1,1: ┼╥╥╘┼╪╘$
  23. 0330       CONT
  24. 0340     ┼╬─╔╞ 
  25. 0350   ┼╬─╘╥┴╨ 
  26. 0360   FILENAME$:=""
  27. 0370 ┼╬─╨╥╧├ FLEXI'LOAD
  28.